home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS207.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  26 lines
  1. 1  REM  HELLO
  2. 2  GOSUB 60000
  3. 3  REM <CTRL-J><CTRL-J><CTRL-J>COPYRIGHT 1987 J LOW<CTRL-J><CTRL-J><CTRL-J>
  4. 10  PRINT  CHR$(4);"RUN DATABASE MAIN MENU"
  5. 59999  END 
  6. 60000  REM  *** INPUT COMMAS & COLONS ***
  7. 60002  REM   THIS ALLOWS COMMAS AND COLONS IN 'INPUT' STATEMENTS.
  8. 60003  REM   PLACE THIS AT THE END OF YOUR PROGRAM
  9. 60004  REM   AND MAKE YOUR FIRST STATEMENT 'GOSUB 60000'.
  10. 60005  REM   THEN PRECEED EACH 'INPUT' STATEMENT WITH
  11. 60006  REM  'CALL 768'.
  12. 60050  PRINT  CHR$(12): HOME 
  13. 60060  PRINT "STAND BY..."
  14. 60070 C$ = "0300: A9 3A 20 C0 DE A9 84 20": GOSUB 60150
  15. 60080 C$ = "0308: C0 DE 20 E3 DF A2 00 20": GOSUB 60150
  16. 60090 C$ = "0310: 75 FD 86 FD 20 39 D5 A5": GOSUB 60150
  17. 60100 C$ = "0318: FD 20 52 E4 A2 00 A0 02": GOSUB 60150
  18. 60110 C$ = "0320: 20 E2 E5 A0 00 A5 FD 91": GOSUB 60150
  19. 60120 C$ = "0328: 83 C8 A5 6F 91 83 C8 A5": GOSUB 60150
  20. 60130 C$ = "0330: 70 91 83 60": GOSUB 60150
  21. 60140  RETURN 
  22. 60150 C$ = C$ +" N D9C6G"
  23. 60170  FOR I = 1 TO  LEN(C$)
  24. 60180  POKE 511 +I, ASC( MID$ (C$,I,1)) +128
  25. 60190  NEXT 
  26. 60200  POKE 72,4: CALL  -144: RETURN